home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 45 / Tiger_Disk_045_1997-12_Tiger-Crew-Disk_de_Side_B.d64 / - ende - (.txt) next >
Commodore BASIC  |  2023-02-26  |  970b  |  27 lines
  1. 10 printchr$(147):poke781,24:poke782,39:sys65520:poke53280,.:poke53281,.
  2. 20 fort=1to7:poke781,23-t:poke782,25-3*t:sys58636:forf=2to6:poke 646,f
  3. 21 print"[145][145][145]hey! du da!!     ":nextf,t
  4. 110 print"[157][157]":poke53270,11:poke53272,23:
  5. 112 poke56325,peek(56325)and0or1
  6. 200 poke53265,peek(53265):
  7. 300 poke54296,15:printchr$(14)
  8. 400 print"[145]   [196]ies ist ja nun wohl das [158][204][197][212][218][212][197]!    ";:fort=1to500:next
  9. 450 :print" [145][157]      [215]irklich!     [196]as [155][193][204][204][197][210][204][197][212][218][212][197]    ";:fort=1to500:next
  10. 520 print" [145][157][157] [208][210][207][199][210][193][205][205] auf dieser [196]iskette   ...    ";:fort=1to500:next
  11. 530 poke54296,0
  12. 560 print"[145][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]"
  13. 600 forc=8192to8203 :print"[145]    [157][153]nun ist endlich[157]":poke53272,peek(53272)and22
  14. 700 pokec,0 :print"         >>>> [197][160][206][160][196][160][197] ! <<<<":nextc:forc=8203to8292
  15. 750 forz=1to500:next
  16. 800 print"[147][154]                       [212]schuess!":poke56325,58
  17. 900 forz=1to1000:next
  18. 911 s=54272:fori=0to6:readx:pokes+i,x:nexti
  19. 912 pokes+24,15:pokes+4,81:pokes+4,64
  20. 950 geta$:ifa$=""thengetb$:
  21. 955 print"[147]       [196]as war's dann also!":forn=0to500
  22. 956 ifb$="" then nextn:print"                           [151][204]ukian"
  23. 957 end
  24. 960 :goto955
  25. 965 data1, 8,1,4,2,11,12
  26. 1000 goto900
  27.